function c = crest(x)
%CREST      Crest factor of signal
%           c = crest(x)
%           c = maximax/rms 
%           x   input signal vector

%   Copyright 2001, Saven EduTech AB. 
%   Revision: 1.1  Date: 2001-05-18 

c = max([abs(max(x)) abs(min(x))])/std(x);

